unit Unit38; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit1;

type

  { TForm38 }

  TForm38 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure FormShow();
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form38: TForm38; 

implementation

{ TForm38 }

procedure TForm38.FormShow();
begin
  if FileExists('configuracion.dat') = true then
  begin
    AssignFile(archivo, 'configuracion.dat');
    Reset(archivo);
    Read(archivo, registro);
    CloseFile(archivo);
    Edit6.Text := registro.codigo_sucursal;
    Edit1.Text := registro.host;
    Edit2.Text := registro.db;
    Edit3.Text := registro.user;
    Edit4.Text := registro.passwd;
    Edit5.Text := registro.ip_impresor;
    ComboBox1.Text := registro.tipo_impresor;

    if ComboBox1.Text = 'Ninguno' then
      Edit5.Enabled := False;
  end
  else
  begin
    Edit6.Text := 'Ingrese Código Sucursal';
    Edit1.Text := 'Ingrese nombre servidor';
    Edit2.Text := 'Ingrese nombre DB';
    Edit3.Text := 'Ingrese nombre usuario';
    Edit4.Text := '123456';
    Edit5.Text := '';
    ComboBox1.Text := 'Ninguno';
    
    Edit5.Enabled := false;
  end;
  
  Edit6.SetFocus;
end;


procedure TForm38.Button1Click(Sender: TObject);
begin
     if registro.tipo_impresor = 'Ninguno' then
     begin
       Form1.MenuItem24.Visible := False;
       Form1.MenuItem28.Visible := False;
       Edit5.Text := '';
     end
     else
     begin
       Form1.MenuItem24.Visible := true;
       Form1.MenuItem28.Visible := true;
     end;
     
     registro.codigo_sucursal := Edit6.Text;
     registro.host := Edit1.Text;
     registro.db := Edit2.Text;
     registro.user := Edit3.Text;
     registro.passwd := Edit4.Text;
     registro.ip_impresor := Edit5.Text;
     registro.tipo_impresor := ComboBox1.Text;

     AssignFile(archivo, 'configuracion.dat');
     Rewrite(archivo);
     Write(archivo, registro);
     CloseFile(archivo);
     
     ShowMessage('Configuración Exitosa!');
     Close;
end;

procedure TForm38.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm38.ComboBox1Select(Sender: TObject);
begin
  if ComboBox1.Text <> 'Ninguno' then
    Edit5.Enabled := True
  else
  begin
    Edit5.Text := '';
    Edit5.Enabled := False;
  end;
end;

initialization
  {$I unit38.lrs}

end.

